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bowling league results, standings and averages program 


DECUS Program Library Write-up 


DECUS NO. 8-517 


abstract 

1. Purpose and Features of these programs. 

The ouroose of these programs is to automate the nr 

Preparing weekly bowling result*? <tiu« c ” . 

for a 16 team „,ivTi results. This system was written 

for 128bowlers! leac;ue and has room for storing data 

Information stored for each bowler includes name location 

bowled * total plnfall Lh g°me 

sinirfi g «r*J i P ^ e n J ndividual highs are printed out for high 
single and triple for the week and high single t-rinio 

average for the year. Both male and female highs are given. 

^/g Pr °5 raraS run r unde f OS/8 on any computer that suooort* 
Tape Read/Punch. L ^° 8 ^ «^pe«d Pa^eT 

2. Mathematical Approach, Formulas, and Equations. 

Standard equations are used for calculating averages. 

3# Relation to other programs. 

These programs were written in FORTRAN under OS/8 using the 

fSiS.i n '’ # SS?B e SS,; / ?* a " d lo-Une sIbr co«n^ 

tan- OS/8 p(n f H + to Drepare the weekly incut 

toe Ms?orfc^ backup fUe PUn l ” PUt tSPP a " a t0 saTe 

Input and Output. 

? n hl * h T s P eed oa P e r tape for current data and the 

is^n 1 ^^ l°f age d f V l oe (DSK: > for historical data. Cutout 
Is on the line printer and DSK:. 

5» Approximate Running Time. 

SunnwNh? ° f th '“ lnDUt tat,e takes ®twenty minutes. 

(r ^MT 818 . 0 " a slr1gle Deotaoe or Llnctooe system 
(worst case) takes about five minutes. ,y 
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OPERATING INSTRfifyrTrutfQ 

1. Machine Set-up; (OS/8 systea with High-speed Paper Tape 

Read/punch and LP08 Line Prlnie" 

A. Bootstrap the system. 

B. Enter the date via the system date command. 

•DA ram/dd/yy (CR) 


C. Turn on punch and line printer. 

D. Use Editor to prepare inout data file. 

•R EDIT (CR) 

♦WKnn.PA-*- (CR) 

#A (CR) 

(^e.y in data terminate with a CTRL/FORM) 
#V (CR) 


(list data on line printer for verification) 
#nC (CR) 


(correct lines as needed ending each with a CTRL/FORM) 
#E (CR) 

(close file end return to monitor) 

E. Use Pip to punch the Input data tape. 

.R PIP ( CR) 

*PTP:^-WKnn.PA (CR) 

♦HIST. BK^-HISr. DA/I (CR) 

*fc 


F. Load input tape in hi*h speed reader. 

G. Ready line printer. 


H. 


Set bit 0 to 0 to read old history from DSK: 

l to create a new history. 


or 
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OPERATING INSTRUCTIONS (cont.) 

I. Prepare the weekly results orint-out. 

•H DBLP (CR) 

J. List all bowlers In the file according to average 

oy sex. ° 


. R DBLA (CR) 


2. Input/Output Formats. 



A. 


History. 


1. Name ( Ja6) 

2. Building (2A2) 

3. Extension (2A2) 

4. Total Strings (A6) 

5. Total Pinfall (a 6) 
o. High Game (A2) 

7. High Triole (A2) 

8. Sex (A2) 

9. Team Captain's Number (A2) 

10. Team Games Won (A2) 

11. Team Total Pinfall (A6) 

B. History Corrections. 



1 . 

2 . 

3. 

4. 

5 . 

6 . 

7. 


(13) 
add, 


Individual Number 
Code (12) (1 for 

Building (2A2) 
Extension (2A2) 

New Individual Number 
Individual Name (3A6) 
Sex (Al) 


(-99 or 0 
replace or 


to end this phase) 
delete; 2 for move) 


(14) (if code 2 above) 


C. History Data. 

i] ?r r (i3> or ° to Bnd this ° hsse) 

3. Total Strings (F4.0) 

4. Total Pinfall (F7.0) 

5. High Game (14) 

6. Hi,?h Triple (14) 
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OPERATING INSTRUCTIONS (cont.) 

D. New Individual Data. 

1 . Individual Number (I 3 ) (-99 or 0 to end this phase) 

« ame 0 If absent or dummy entry) P ' 

l' 5 ame W (° lf nbnent or dummy entry) 

4. 3rd Game (14) (0 If absent or dummy entry) 

(If a bowler Is absent for all three games, no entry 
Is necessary for that week) ’ 7 

E. Team History Corrections. 

2* Team i* 3 ,?, £~ 99 , OI \° to end thls ohase) 

^e learn Captain’s Number (13) 

3. Games Won (14) 

Total Pinfell (F7.0) 


F. New Team Data. 

1. Team Number ( 13 ) 

2. Games Won (12) 

3* 1st Game (14) 

4. 2nd Game (14) 

5» 3rd Game (14) 


(-99 or 0 to end this phase) 


< irn^/^f\ h ™e a s 1 , hish ’ a bowier «»•* 


H. Week Number. 


1. Week Number (13) 

2. Date (2A6) 

( ? h hfirr° Kr S!! wa e " rltten f °r » 30-week season, with 
after week^l 5 !*) ^° re * the ta ™ history has to be reset 


3. Programmed Halts. 

There are no programmed halts. 

4. Approximate Running Time. 

Twenty-five minutes Including input data prepartion. 
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DIGITAL BOWLING LEAGUE FILE MAINTENANCE PROGRAM 

COMMON MYSl,MYTl,NYSl,NYTl,MYS2,MYT2 f NYS2,NYT2 

COMMON MYA1,NYA 1,MYA2,NYA2,IRK,PTS,IDUM 

01 MANSION JG(3),ITC(16),IWQN(16),TTPF(16),IDUM(4) 

DIMENSION ANEC128),BNE(126),CNE(128)»IBL (128)»JBLC12S) IEXflPfll 

F0RMAT(A2,2A6,3A2) 

FORMAT (13, I2,«A2,I<J,3Afe, Ai) 

FORMAT(13#12,314) 

FORMAT(13,12,Fa,0,F 7,0,214) 

FORMAT(2A2,A6) 

GET HISTORY INTO COMMON 

N*IRDSW(0) 

IF(N)5,85*85 

CALL IOPENC'USK'^hIST") 

ReA0t«,9«)(ITC(N),I h 0N(M,TlpJ( N ), N = ;;^, , ' ISXlN, ' fcl - 1 ’ U6) 
read MODIFICATIONS TO FILE 


IFCJND)55!55 D !0 CD ' KHL,LbL ' KtX ' L ' EX ' KND ' XN '’ ' YNE,ZNiE ' JSX 
GO TO C20,30),JCD 


THIS IS AN ADD,REPLACE OR DELETE 

ANE(JNDJ sXNE 
BNE( JND)*YN£ 

CNE(JND)*ZNE 
IBLCJND) »KBl 
JBLCJNO)*LBL 
IEX(JND)s k E x 
JEX(JND)bLEx 
TS(JND)s0. 

TP(JND) s0, 

IHG(JNO)»0, 

IHT (JND)s0, 

ISX(JND)bJSx 
GO TO 5 

THIS IS A MOVE 

ANE(KND)aXNE 
BNE(KND)*YNE 
CNE(KND)a*NE 
IBL(KND)skBL 
JBL(KND)8LBL 
IEX(KND)a K E X 
JEX(KND)»lex 
TS(KND) aTS(JND) 

TP(KND)STP(JND) 

IHG(KNO)alHG(JND) 

IHT (KND) "IHT ( J N 0 ) 
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c 

55 

57 


35 




ISX(KND)*ISX(JND) 

SO TO 5 

READ OLD HISTORIES OR 
READ(£,95)JND,JCO,XTS 
IF (JND)35,35,57 
TSCJNO)«XTS 
TP(JND)*XTP 
IHG(JND)*JHG 
IHT(JND)■JHT 
GO TO 55 

CALL CHAIN ('DBLH') 
END 


CORRECTIONS 
XTP, Jh(j, jhT 
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c 

c 


96 


DIGITAL bowling league history update program 


COMMON 

common 

COMMON 

common 

COMMON 


AiNt,BNfc,CNE,IBL,JBL,IEX,JEX,T$,Tp,IHG,IHT,ISX.MHS 
NHS,NHT ,IMH$l,IMHTl,INHSl,INHTl,IMHS2,IMHT2,INHS2 ' 

itc,i»on,ttpf,otei,ote S ,-i;s,my} z«Y*,N s'myt znv!' 
MYSl,«YTl ( NYSl ( NYTl,MYSa,«YTi,NYSS,Nl T a ’ V 

- MYA1,NYA1,MYA2,NYA2,IWK,PTS,IDUM 

DIMENSION JG 1 3 ) . T TT f 1 fs 1 . T uinm t « l. \ 

DIMENSION AN 
DIMENSION JE_ 

FORMAT(13, 314) 

ITE$T*512 
MHS«0 
MHT*0 


INHT2 


i»ny i i,!NT3*,NYTl ,MYS2,MYT2,NYS2,NYT2 

i,NYAl,MYA2,NYA2,IWK,PTS.IDUM 

JG(3),ITCC16),IwON(16),TTPFCl6),IDUM(4) 

ifv JfSSJ , ?i‘!;if? ),CNE(l283 'I 0 L(128), JBLC128) 
|^^ l2fl 5fT$(128),TP(l28),IHG(l28),IH T (128),I 


»IEX(128) 
SXC128) 


NHS»0 

NHT*0 


CALCULATE NEW HISTORIES 


60 


62 



46 

20 

40 

41 


42 

25 

49 

68 

65 

S 


READ(2,96)JNO,(JG(N),N«1,3) 

IF(JND)80,80,60 

WT*0, 

IWT«0, 

DO 65 N«l,3 
IGK»JG(N) 

IF(IGK)65,65,62 

TP(JND) «TP(JNO)+FLOAT(IGK) 

TS CJNO)»TS(JND)+1,0 

IWT*IWT4IGK 

LL«I5X(JNO) 

CLA 

TAO MTEST 
CMA I AC 

tad \ll 

SPA CLA 
JMP \40 

IF(IGK-MHS)49,48,47 

MHS«IGK 

IMHS1«JND 

IMHS2«0 

GO TO 49 

IF (IMHS1»JND)20,49,20 

IMHS2*JND 

GO TO 49 

IF(IGK.NHS)49,42,ai 

NHS«IGK 

INHS1« JND 

INHS2»0 

GO TO 49 

IF ( INHS 1-JNO)25,49,25 
INHS2«JN0 

IF(IGK-IHG(JND))65,65,66 

IHG(JN0)»IGK 

CONTINUE 

LLsISX(JNO) 

CLA 


Q 





tad vitest 

CMA I AC 
tad \Ll 

SPA CUA 
JMP \90 

IP(IWT-MHT)89,88,87 

MHT«IWT 

IMHT1«JND 

IMHT2«0 

GO TO 89 

IMHT3«JND 

GO TO 89 

IPCIWT»NHT)89,92,91 

NMT»IWT 

iNHTi«JND 

INHT2»0 

GO TO 89 

INHT2«JND 

IPflWT-IHT(JND))50,50,70 
IHT CJNO)■IWT 
GO TO 50 

CALL CHAIN('OBLT') 

END 
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c 


99 

98 

97 

96 

95 

200 

Cl® 


220 

240 


230 



DIGITAL BOWLING LEAGUE TEAM HISTORY UPDATE PROGRAM 


COMMON 
COMMON 
COMMON 
COMMON 

COMMON MYA1, NYAl ,MYA2, NYA2, r 
DIMENSION ITC(16 ),IwONC16),TTPF(16),IDUMC4J 
DIMENSION ANE(128) , BNE(128),CNE(128),IBL C12 
DIMENSION JEX(128J,TS(128),TPC128),IHG(12») 


IBLC126),JBL(128) 




FORMATC2I3#14,F7,0) 
FQRMAT(I3,I2,3I4) 
FORMAT(3A6,3A2) 
FORMAT (A2,2Ab,3A2) 
FORMAT(2A2»A6) 


READ(2,99)JTN f JTC,JWON,XTTPF 

IF(JTN)2?0,ag0,gi0 
ITC(JTN)ajTC 
IWON(JTN)*JwON 
TTPF(JTN)aXTTPF 
GO TO 200 


READ(2,98)JTN,JWON,JPFl,JPF2,JHF3 
IF CJTN)230,230,240 
I WON(JTN)*1WUN(JTN)+JWON 

TTPF(JTN)sTTPF (JTN)+FL0AT(JPF1+JPF2+JPF3) 
GO TO 220 


CALL OOPEN('OSK',* HI S T # ) 

WRITE(4,97)(ANE(N),BNE(N),CNE(N),lBL(N),JBL(N),IEX(N),Ns1 i iP81 

WRITE(4,95)(ITC(N) F lwON(N),TTPF(N),Nsi,i6) 

call OClOSE 

CALL CH AI N (* DBL R *) 

END 
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c 


99 

98 

97 

96 



DIGITAL BOWLING LEAGUE RESULTS PROGRAM 


COMMON ANE.BNE.CNE,IBL,JBL,IEX, 
COMMON NHS,NHT,IMHS1,IMHT1,INHS 

ITC,- — 

MVS 1 
MY A 1 


COMMON 

COMMON 

COMMON 


-~,MHS,MHT 
INHS2,INHT2 
’ i ZNYA 


COMMON MYA1,NYM,MYA2,NYA2,IWK,PTS,IDUM 
DIMENSION ITC(16),I WON( 16 ),TTPF(lb),IQUM(a) 
DIMENSION ANE(128),BNE(128),CNE(128),IBL( 12 

OIMENSION J EX(12fl),TS(128),TP(128),jHG(128? 


FnoM a 1f«1!15X)^DIGITAL BOWLING LEAGUE - 1971/1972' 
FORMAT ( 1 Y p?i^'J TEAM N0 *'' 13 '' AVERAGE', 6X, 'EXT. 

REAO(2,96) IWK.0TE1.DTE2 
PTS«IWK*2 


5X,'OATE 
%4X)) 


WRITE(3,99)0TE1,DTE2 

MYS»0 

MYT*0 


ZMYA*0,0 

NYS«0 

NYT*0 


%BA b ) 


ZNYAb0,0 

N ■ *» 1 

00 50 M»1,8 
L*10*(M-I) 
N*N + 2 


K »N+ 1 


WRITE(3,98)N , K 
DO 50 1*1,5 
L*L* 1 
k*l + 5 


TAV*TP(L)/TS(L) 
CALL HIGHS(L»TAV) 
RAV*TP(K)/TS(K) 
CALL HIGHSCK.RAV) 


WRITE (3,97) ANE (L) , BNE (L) , CNE (L) # T A V , I8L (L 1 JBl fi 1 tpvm i , tw ,. 


CALL CHAIN ( 'DBLS') 

end 


f 


n 






c 


99 

98 

97 

89 

88 



33 


32 

38 

31 



35 


DIGITAL bowling league standings program 
common ane 

COMMON NHS 

common itc* 

COMMON MYS1 

rnMMftK, J u A i 



IPTS»IWK *8 
IF(IWK" 15 ) 20 , 20,25 
IPTSsIPTS-120 
WRITE( 3 , 99 )IWK,DTE 1 , 0 TE 2 
WRITE( 3 , 98 ) 

00 30 N* 1,16 
IBIG«IWQN( 1 ) 

TBIGsTTPF (1) 

JJ *1 

00 31 Mr 1 , 1 fc 

IP(IW 0 NCM)-ieiG) 3 l, 32,33 
IBIG*IWON(M) 

J Jr H 

TBIGsTTPF (M) 

GO TO 31 

IF(TTPF(M)-TBIG) 31 f 31,38 
TBIGsTTPF(M) 

J J * M 

CONTINUE 

IL 0 ST«IPTS-IW 0 N(JJ) 

KsITCCJJ) 

J"5N(]j)'’0 ,JJ ' 4NE<K, ’ eNe ‘ R) ’ CNECK) ' 1 “ lJN ' J '')'J‘-O5r,TTPf (J j, 
TTPF CJJ)*0,0 
WRITE(3> 89) 

00 34 M» 8 l,ig 8,2 
Nr Mt 1 

IF (TS (M)) 40 , 40,35 
TAVsTP(M)/TS(M) 


C 


39 

41 

34 


40 


TEST IF SUB HAS BOWLED 2/3 OF THE WEEKS 


CALL HIGHS(M,TAV) 
IFCTS(N))39,39,41 
WRITE(3,88)ANE(M),BNE(M), L Nt(M) 
GO TO 40 


TAV,I0LCM),J0L(M),IEX(M),JEX(M) 


RAVsTPIN)/TS (N) 

CALL HIGHS(N,RAV) 

WRITE(3,88)ANE(M),BNE (M),QNfc(M) 

1 ANt CN) , BNE(N) , CNE(N) ,WAV, IbL(N) 


TAV,IdL(M),JBL(M),IEX(M),JEX(M) 

#JBL(N),IEX(N),JEX (N) 


t 


CALL CHAIn('DBLX') 
END 
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96 

95 

9a 

93 

92 

91 

90 

86 

85 

83 

82 

81 

80 


45 
44 

47 

46 


49 
48 

I, 

50 


53 
52 

55 

54 


57 
56 
59 

58 


61 

60 

63 

62 


DIGITAL BOWLING Lfc AGUE XTENOEL) HONORS PROGRAM 

eSSSSS .. 

SS? - 
Sis 

dimension «xas9j:?s N a" 8 S r;puier^, I ^‘^ , ' J8LUa8) ’ IE « (1?8 ’ 

FORM4K-OHIGH TRIPLE') ),IMS “ S8, ' I,,rU58) ' 1S,t '‘?6) 

FORMAT('0HIGH SINGLE # ) 

FORMAT C'’0HIGH AVERAGE ') 

FORMAT C'0MALE:M«x,3A6,4X, 14) 

FORMAT (24X,3A6,4X,14) 

FORMAT f'0MALE» M8X, 3A6,4X,F6.1) 

FORMATC'0FEMALE*M6X,3;6,;x,F6 1) 

FORMATC24X,3A6,4X,F6.1) 

F0RMATC21X,3A6 ( 2X,I4) 

FORMAT(49X»3A6f2X»14) 

WRITE(3/96) 

iF^« , « 3 !;;^ vT1),aNe( '' vn, ’ CNttMv7i) -^ T 

HslIt!T'«!w N ^! >,VTa, '“ NEt, ” ,TS) ' CNE t M »TP),MYr 

iFtNYii^sj^^r ' 8NE(NvTu,cNttNvTi) ' NYT 

:«m; 3 3 :^ iNt(N¥T2, ' BNtthna, ' c8t(NYTa >'« T 

JFi;Ysl;«a 3 !Js% ( r si, ' 1 ’ NE( ’"’ su ' CNetM ' rsi) ' Mys 

WRITE (3,85) A Mg (MYS2) , bNE (MYS2) ,CNE fMYSPI MV <5 

«RITE(3,86)ANE(NYSl),bNt(NYSt CNE Nlsf 'n« 

IFCNYS2)50,50,5l #tNtCNY81),NYS 

WRITE(3;94j ANECNV52),BN£(NY82) ' CNfc(NYS23 ' NVS 

WR{?p!t'J,!L N 5S MVla, ' aNt(t,V42) ' CN E(MYA£), Z MY» 

ifcnyas)"!^ Nt ‘ NVM) ' CNE(NV41, ' ZN¥ ‘ 

WRITE ( t 3;9| ) )ANECNVA2) ' BNfc(, ' ,YA 25»CNE(NYA2),2NYA 

lBNECIMHTl)fcNE(lJlHTl)^H 1 ClMHSn ' CNE(IMHSn,MHS ' AN ' E(lMHT1 J* 

IF(IMHS2)56,56r 57 

IF (IMHT2) 50*59,^5 <) H8a7 (IMHS2) fCNE(IMhS2) ,MMS 

WRITE f3 # 901 A^rJUUIf * c ^E(IMHT2) ,MHT 

ibnecinhti),cnE(inhti)^nht INHSI),CNE(INhS 1 ) ' nhs »ANE(INHTI), 
IF(INH$2)60»fc>0,6l 

c!jL e Ex;?‘ ,, ‘ Ne<INHTE, ' BNE(IhHTa) ’ CNt ” N, '^)'~HT 
END 13 
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10 

s 

s 

s 

s 



45 

47 


48 

49 

37 


38 

39 

27 



DIGITAL bowling league highs subroutine subprogram 


COMMON 

COMMON 

COMMON 

COMMON 


nTMPK/«iTr,Ki i*k,pts, IOum 
DIMENSION ITC(16),IwON(16),TTPF(16) TmiMrzii 


;! c ( Is ( !<«>- PT s)2j,i0,t0 

ITEST»5l? 

LLsISX(KK) 

CLA 

tad UTEST 
CMA I AC 

tad \ll 

SPA CLA 
JMP \«0 

IP (AVE-ZMYA) 49,48,47 

ZMYA»AVE 

MYA1»KK 

MYA2»0 

GO TO 49 

MYA2*KK 


IP(IHT(KK)-MYT)i9,38,37 

MYTsIHT(KK) 

MYTlnK K 
MYT2*0 
GO TO 39 


MYT2«KK 

IF(1HG(KK)«MYS)29,?H,27 

MYSalHG(KK) 

M Y S1*KK 


MYS2«0 

RETURN 

MYS^BKK 

RETURN 


40 

41 


4? 

43 

31 


32 

33 

21 


22 

23 


IF(AVE-ZNYA)43, US ,41 
ZNYA*AYE 
NY A 1«KK 

NYA2S0 

GO TO 43 
NY A2*KK 

IFCIHT(KK)-NVT)53,32,31 
NYTsIHT(KK) 

NYTIskK 


NYT2s0 

GO TO 33 
NYT2»KK 

IFCIHG(kK).nYS)23,22,21 

NYS»IHG (KK) 

N Y S1 ■ K K 
NYS2«0 
RETURN 
NYS2*KK 
RE TURN 

end 
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c 


99 

98 

96 
95 

97 
91 
9a 
9'i 


10 


2.0 

5 

S 

S 


s 

s 



30 

a® 

as 

50 

50 


70 


45 

75 


OIGITAl BOWLING LEAGUE AVERAGES PROGRAM 


COMMON t *«;««.«t.m.J.L,K*.je> l T*.TP. I - Sl ,H T ,„ x , 1TC , IN0N 

BE SSSSSFS»W 

FORMAT(JA6,3A£) 
tr 0RMAT(A?,PAfc,3A2) 

POR0ATr'!i# , «v X i #D1 ' GIT<,L SOWu ING LEAGUE « 1971/1972') 

ext - -*«* 

p ORMAT('0',25x,'MALES' ) 

format C' 0 ' , 24 x, 'fi-male s') 

FORMAT C?A2, A<5) 

LALL IOPEN('OSK', *HIS 1 *) 

S ; $S 

tAD(4,94)(ni, (N),Iw0NCN),TrPF(\|),Nsl,l6) 1 c J 


ITE8T*5J 2 
WRITE(3,96) 

WHITE(3,97) 

WRITE (3,95) 

CO 5?! Ms 1,120 
IE CTS(M))60.60,10 
B I G A s 0 . Cl 
00 40 Ksl,1 ps 
IF CTR(Hj) <40,40,20 
LL 8 ISX O ) 

CLA 

TAD MTf-ST 
Cma iac 
f A0 SL! 

spa ola 

7MP sao 

-»v E * T P ( k ) / t s r K) 

TE (AVt.-('lGA) 40,40,30 
B I G A S A V r 


J«K 

CONTINUE 

(F(BIGA)60,60,45 

t TP t J) ,0!GA, IhG(J)?iHT (J) CNt CJ) ' IBL( JJ ' (J) ' UX (JJ ' JEX f J) * T S(J) , 

7p(J)sy r 0 

WRITE(3.9b) 

■■•'RITE (3,91) 

WRITE(3,95) 

00 80 M=1,12P 

1F(TS(M))90,jr ,70 
FIGas0,v- 
CO H5 Ksl, 1 ? A 
TF CTP(K))85,85,65 
AVEs TP(K)/TS (K) 

IF(A V fc « KIG A j85,85, 75 
f- 16 A s A V t 

J sK 
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«5 

8 7 

80 

90 




CONTINUK 

IFf0IGA)90,90,87 


*»ITE (3,93)ANt (J),6KE(J) ,CNfc(J) 

1 TP(J), 91 G A ,I h G ( J ), IHT (J) 

TP(J)eg,® 


call exit 


€ NO 


IBL CJ)/JRL(J),IEX (J),JEX (J),TS (J), 


16 
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